home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 61 / 061.d81 / puzzle boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  37 lines
  1. 10 poke53281,.:poke53280,12:print"[147]"
  2. 20 gosub260
  3. 30 sys57812"puzzle.font",8,0:poke780,0:poke781,0:poke782,48:sys65493
  4. 40 poke53272,29
  5. 50 b$="      [182][158][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][181]"
  6. 60 c$="                      "
  7. 70 print"      [172][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][187]"
  8. 80 fori=1to7:printb$:next
  9. 90 print"      [188][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][190]"
  10. 100 poke214,8:print
  11. 110 printc$
  12. 120 printtab(9)"   [212]he [208][213][218][218][204][197] [208][193][199][197]    "        "
  13. 130 [153]c$
  14. 140 [153][163]9)"cont atn open(NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)cont val(NULL)len(NULL)(NULL)(NULL)right$(NULL)val "
  15. 150 [153]c$
  16. 160 [143]poke214,14:print:print"def           (NULL)oading (NULL)rogram..."
  17. 170 [151]147,0:[158]57812"windows.o",8,1:[158]62631
  18. 190 [159]15,8,15,"r0:puzzle page 61=puzzle page 61":[132]15,er:[160]15
  19. 200 [153]"stopload"[199](34)"puzzle page 61"[199](34)",8"
  20. 210 [153]"run"
  21. 220 [151]43,1:[151]44,64:[151]16384,0
  22. 230 [151]631,13:[151]632,13:[151]633,13:[151]198,3
  23. 240 [162]
  24. 250 :
  25. 260 [151]214,15:[153]
  26. 270 [153]"  frefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefre"
  27. 280 [153]"  cont                                    "
  28. 290 [153]"            (NULL)left$val (NULL)(NULL)(NULL)(NULL)(NULL)val (NULL)atnchr$val           "
  29. 300 [153]"     peeky peekarbara left$. (NULL)chulak (c) 1989   "
  30. 310 [153]"        (NULL)ublished on (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) #61     "
  31. 320 [153]"      (NULL)ubscriptions 1-800-831-2694    "
  32. 330 [153]"     lenleft$atn(NULL)chr$right$(NULL)chr$close(NULL)left$right$(NULL)close(NULL)(NULL)(NULL)right$lenvalcloseright$(NULL)closeright$(NULL)(NULL)valchr$atn(NULL)  "
  33. 340 [153]"                                      "
  34. 350 [153]"  pospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospos"
  35. 360 [142]
  36. 370 [159]15,8,15,"s0:puzzle boot":[160]15:[148]"0:puzzle boot",8:[128]
  37.